**Health Inequalities Study

**READ ME
**SSI data used for survey experiment results in main text, as well as Appendix 3B, 4, 6, 7, and 8


 
/* Balance check in Appendix 3B; no evidence of imbalance  */
oneway male healthtreat, t
oneway how_old healthtreat, t
oneway education healthtreat, t
oneway income healthtreat, t




/* MAIN PAPER: TABLE 3, COLUMNS 2-4 */
gen personalconcern = (personal+value+suffer+happy)/4
by healthreat: sum personalconcern
ttest personalconcern if (healthtreat==1 | healthtreat==2), by(healthtreat)
ttest personalconcern if (healthtreat==1 | healthtreat==3), by(healthtreat)
ttest personalconcern if (healthtreat==1 | healthtreat==4), by(healthtreat)
ttest personalconcern if (healthtreat==1 | healthtreat==5), by(healthtreat)

by healthreat: sum personal
ttest personal if (healthtreat==1 | healthtreat==2), by(healthtreat)
ttest personal if (healthtreat==1 | healthtreat==3), by(healthtreat)
ttest personal if (healthtreat==1 | healthtreat==4), by(healthtreat)
ttest personal if (healthtreat==1 | healthtreat==5), by(healthtreat)

gen otherconcern = (value+suffer+happy)/3
by healthreat: sum otherconcern
ttest otherconcern if (healthtreat==1 | healthtreat==2), by(healthtreat)
ttest otherconcern if (healthtreat==1 | healthtreat==3), by(healthtreat)
ttest otherconcern if (healthtreat==1 | healthtreat==4), by(healthtreat)
ttest otherconcern if (healthtreat==1 | healthtreat==5), by(healthtreat)

/* APPENDIX 6 */
alpha personal value suffer happy
alpha value suffer happy



/* MAIN PAPER: TABLE 3, COLUMN 1 */
**Issue Importance Qs **


prtest health_rank1 if (healthtreat==1 | healthtreat==2), by(healthtreat)
prtest health_rank1 if (healthtreat==1 | healthtreat==3), by(healthtreat)
prtest health_rank1 if (healthtreat==1 | healthtreat==4), by(healthtreat)
prtest health_rank1 if (healthtreat==1 | healthtreat==5), by(healthtreat)

/* APPENDIX 6 */
gen rank = (health_rank + ineq_rank)/2
gen rank1 = 999
recode rank1 999=1 if (ineq_rank==1 | health_rank==1)
recode rank1 999=. if (ineq_rank==. | health_rank==.)
recode rank1 999=0
by healthreat: sum rank1
prtest rank1 if (healthtreat==1 | healthtreat==2), by(healthtreat)
prtest rank1 if (healthtreat==1 | healthtreat==3), by(healthtreat)
prtest rank1 if (healthtreat==1 | healthtreat==4), by(healthtreat)
prtest rank1 if (healthtreat==1 | healthtreat==5), by(healthtreat)






/* APPENDIX 4 */
/* income */
probit health_rank1 c.humaninterest##c.income c.statspercent##c.income c.statsN##c.income c.statsNdenom##c.income
margins, dydx(humaninterest) at(statspercent=0 statsN=0 statsNdenom=0 income=(1(1)13))
marginsplot, recast(line) recastci(rarea)
margins, dydx(statspercent) at(humaninterest=0 statsN=0 statsNdenom=0 income=(1(1)13))
marginsplot, recast(line) recastci(rarea)
margins, dydx(statsN) at(humaninterest=0 statspercent=0 statsNdenom=0 income=(1(1)13))
marginsplot, recast(line) recastci(rarea)
margins, dydx(statsNdenom) at(humaninterest=0 statspercent=0 statsN=0 income=(1(1)13))
marginsplot, recast(line) recastci(rarea)

**Social Distance, based on measure of medical expenses**
probit health_rank1 c.humaninterest##c.healthexpenses c.statspercent##c.healthexpenses c.statsN##c.healthexpenses c.statsNdenom##c.healthexpenses
margins, dydx(humaninterest) at(statspercent=0 statsN=0 statsNdenom=0 healthexpenses=(0,1))
marginsplot, recast(scatter)
margins, dydx(statspercent) at(humaninterest=0 statsN=0 statsNdenom=0 healthexpenses=(0,1))
marginsplot, recast(scatter)
margins, dydx(statsN) at(humaninterest=0 statspercent=0 statsNdenom=0 healthexpenses=(0,1))
marginsplot, recast(scatter)
margins, dydx(statsNdenom) at(humaninterest=0 statspercent=0 statsN=0 healthexpenses=(0,1))
marginsplot, recast(scatter)



/* APPENDIX 8 */

**Rank of health 
probit health_rank1 c.humaninterest##c.dem_rep c.statspercent##c.dem_rep c.statsN##c.dem_rep c.statsNdenom##c.dem_rep
margins, dydx(humaninterest) at(statspercent=0 statsN=0 statsNdenom=0 dem_rep=(0,1))
marginsplot, recast(scatter)
margins, dydx(statspercent) at(humaninterest=0 statsN=0 statsNdenom=0 dem_rep=(0,1))
marginsplot, recast(scatter)
margins, dydx(statsN) at(humaninterest=0 statspercent=0 statsNdenom=0 dem_rep=(0,1))
marginsplot, recast(scatter)
margins, dydx(statsNdenom) at(humaninterest=0 statspercent=0 statsN=0 dem_rep=(0,1))
marginsplot, recast(scatter)

**Education
probit health_rank1 c.humaninterest##c.education c.statspercent##c.education c.statsN##c.education c.statsNdenom##c.education


